home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / ged11.lha / Install / data / main / GoldED / ARexx / dmake.ged < prev    next >
Text File  |  1993-07-25  |  2KB  |  72 lines
  1. /* $VER: 0.9, ©1993 Dietmar Eilert. Call dmake utility (DICE) */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT QUIET'                        /* lock GUI, gain access   */
  9. OPTIONS FAILAT 6                            /* ignore warnings         */
  10. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  11.  
  12. /* ------------------------- INSERT YOUR CODE HERE: -------------------- */
  13.  
  14. 'QUERY CAT'
  15. isGerman = (result = "deutsch")
  16.  
  17. 'QUERY MODIFY'
  18.  
  19. if (result = 'TRUE') then do
  20.  
  21.     if (isGerman) then
  22.         'REQUEST BODY="Datei wurde verändert. Speichern ?" BUTTON="speichern|abbrechen"'
  23.     else
  24.         'REQUEST BODY="File has been changed. Save it ?" BUTTON="SAVE|CANCEL"'
  25.  
  26.     if (result = 1) then
  27.         'SAVE ALL'
  28. end
  29.  
  30. 'QUERY PATH VAR PATH'
  31.  
  32. if (right(path, 1) ~= ':') then
  33.     path = path || '/'
  34.  
  35. if (exists(path || 'dmakefile')) then
  36.  
  37.     do
  38.  
  39.         shell
  40.  
  41.         pragma('D', path)
  42.         'dmake'
  43.  
  44.         shell
  45.  
  46.         if (isGerman) then
  47.             say "Fertig (RETURN drücken)."
  48.         else
  49.             say "done (press RETURN)."
  50.  
  51.         pull dummy
  52.     end
  53.  
  54. else do
  55.  
  56.     if (isGerman) then
  57.         'REQUEST BODY="Kein Makefile in ' || path || ' ?!"'
  58.     else
  59.         'REQUEST BODY="No makefile in ' || path || ' ?!"'
  60. end
  61.  
  62. /* ---------------------------- END OF YOUR CODE ----------------------- */
  63.  
  64. 'UNLOCK' /* VERY important: unlock GUI */
  65. EXIT
  66.  
  67. SYNTAX:
  68.  
  69. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  70. 'UNLOCK'
  71. EXIT
  72.